BBS in a Box 7/BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso/Files/Hyper/Co-Cz/ConceptMaker.cpt/ConceptMaker/card_5027.txt

Text File | 1990-12-13 | 17KB | 701 lines

-- card: 5027 from stack: in
-- bmap block id: 7358
-- flags: 0000
-- background id: 3094
-- name: Make diagram


-- part 1 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=2 top=30 right=65 bottom=176
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 2 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=2 top=80 right=211 bottom=177
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 3 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=1 top=226 right=278 bottom=178
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 4 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=1 top=226 right=278 bottom=178
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 5 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=1 top=226 right=278 bottom=178
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 6 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=206 top=33 right=53 bottom=287
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 7 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=176 top=30 right=54 bottom=205
-- title width / last selected line: 0
-- icon id / first selected line: 29484 / 29484
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button


-- part 8 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=195 top=78 right=146 bottom=329
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: TEMPLATE.4
----- HyperTalk script -----
on mouseUp
  set the cursor to 4
  set the lockScreen to true
  go to card "template.4"
  doMenu "copy card"
  doMenu "paste card"
  set name of this card to "new"

  go to  card "Make Diagram"
  set the name of card "new" to line 1 of card field id 6
  go to card (line 1 of card field id 6)
  put short name of this card into bkgnd field "name"

  go to card "select symbols"
  visual effect zoom open
  put empty into card field id 4

  put line 1 of card field id 8 of card "Make Diagram" into card field id 4

end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=346 top=78 right=146 bottom=479
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: TEMPLATE.5
----- HyperTalk script -----
on mouseUp
  set the cursor to 4
  set the lockScreen to true
  go to card "template.5"
  doMenu "copy card"
  doMenu "paste card"

  set the name of this card  to line 1 of card field id 6 of card "Make Diagram"

  put the short name of this card into bkgnd field "name"


  go to card "Two"
  put empty into card field id 140

  put line 1 of card field id 6 of card "Make Diagram" into card field id 140
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=217 top=227 right=277 bottom=309
-- title width / last selected line: 0
-- icon id / first selected line: 1015 / 1015
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: CREATE DIAGRAM
----- HyperTalk script -----
on mouseUp
  set the cursor to 4
  set lockScreen to true

  go to card (line 1 of card field id 6)


  if short name of this background is "four" then
    go to card "Make Diagram"
    click at 260,322
    click at 281,322

  else
    if short name of this background is "five" then
      go to card "Make Diagram"
      click at 260,334
      click at 281,334

    end if
  end if


  go to card "Make Diagram"
  go to card (line 1 of card field id 6)
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=249 top=315 right=330 bottom=271
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: D.1
----- HyperTalk script -----
on mouseUp
  put empty into card field id 16

  go to card "Select symbols"
  put empty into card field id 156
  repeat with i = 15 to 109
    if hilite of  button  i  is true then

      put i  after card field id 156
      put ","  after card field id 156
    end if

  end repeat
  put "150" after card field id 156

  put empty into card field id 4
  put card field id 6 of card "Make diagram" into card field id 4
  go to card "make diagram"

  put card field id 156 of card "select symbols" into card field id 16


  go to card "Select symbols"



  repeat with i = 1 to 10

    get item i of card field id 156 of card "select symbols"
    go to card (line 1 of card field id 4)



    if it is 15 or it is 16 or it is 17 or it is 18 or it is 19 then
      set icon of card button i to 14204

      go to card "Select symbols"
      next repeat
    end if
    if it is 25 or it is 26 or it is 27 or it is 28 or it is 29 then
      set icon of button i to 14130

      go to card "Select symbols"
      next repeat
    end if
    if it is 40 or it is 41 or it is 42 or it is 43 or it is 44 then
      set icon of button i to 22268

      go to card "Select symbols"
      next repeat
    end if
    if it is 45 or it is 46 or it is 47 or it is 48 or it is 49 then
      set icon of button i to 23404

      go to card "Select symbols"
      next repeat
    end if
    if  it is 60 or it is 61 or it is 62 or it is 63 or it is 64 then
      set icon of button i to 5872

      go to card "Select symbols"
      next repeat
    end if
    if it is 65 or it is 66 or it is 73 or it is 74 or it is 75 then
      set icon of button i to 13073

      go to card "Select symbols"
      next repeat
    end if
    if it is 67 or it is 68 or it is 69 or it is 70 or it is 71 then
      set icon of button i to 28352

      go to card "Select symbols"
      next repeat
    end if
    if it is 85 or it is 90 or it is 95 or it is 104 or it is 105 then
      set icon of button i to 18110

      go to card "Select symbols"
      next repeat
    end if
    if it is 86 or it is 91 or it is 96 or it is 103 or it is 106 then
      set icon of button i to 26064

      go to card "Select symbols"
      next repeat
    end if
    if it is 87 or it is 92 or it is 97 or it is 102 or it is 107 then
      set icon of button i to 14048

      go to card "Select symbols"
      next repeat
    end if
    if it is 88 or it is 93 or it is 98 or it is 101 or it is 108 then
      set icon of button i to 30151

      go to card "select symbols"
      next repeat
    end if
    if it is 89 or it is 94 or it is 99 or it is 100 or it is 109 then
      set icon of button i to 22358

      go to card "Select symbols"
      next repeat
    end if
    go to card "Select symbols"



  end repeat


  go to card "Make Diagram"


  choose browse tool
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=270 top=315 right=330 bottom=292
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: D.2
----- HyperTalk script -----


on mouseUp

  go to card "Select symbols"
  repeat with i = 1 to 10
    get item i of card field id 156
    if it is 15 or it is 25 or it is 44 or it is 45 or it is 64 or it is 65 or it is 67 or it is 85 or it is 86 or it is 87 or it is 88 or it is 89 then
      go to card (line 1 of card field id 4)
      set the loc of card button i to 193,42
      go to card "Select symbols"
      next repeat
    end if

    if it is 16 or it is 26 or it is 43 or it is 46 or it is 63 or it is 66 or it is 68 or it is 90 or it is 91 or it is 92 or it is 93 or it is 94 then
      go to card (line 1 of card field id 4)
      set the loc of card button i to 62,178
      go to card "Select symbols"
      next repeat

    end if

    if it is 17 or it is 27 or it is 42 or it is 47 or it is 62 or it is 73 or it is 69 or it is 95 or it is 96 or it is 97 or it is 98 or it is 99 then
      go to card (line 1 of card field id 4)
      set the loc of card button i to 191,178
      go to card "Select symbols"
      next repeat
    end if

    if it is 18 or it is 28 or it is 41 or it is 48 or it is 61 or it is 74 or it is 70 or it is 104 or it is 103 or it is 102 or it is 101 or it is 100 then
      go to card (line 1 of card field id 4)
      set the loc of card button i to 321,178
      go to card "Select symbols"
      next repeat



    end if

    if it is 19 or it is 29 or it is 40 or it is 49 or it is 60 or it is 75 or it is 71 or it is 105 or it is 106 or it is 107 or it is 108 or it is 109 then
      go to card (line 1 of card field id 4)
      set the loc of card button i to 448,178
      go to card "Select symbols"
      next repeat

    end if


    go to card "Select symbols"

  end repeat




  go to card "Make diagram"






  choose browse tool
end mouseUp




-- part 14 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=249 top=327 right=342 bottom=271
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: E.1
----- HyperTalk script -----
on mouseUp
  put empty into card field id 16


  go to  card "two"
  put empty into card field id 138
  repeat with i = 15 to 134
    if hilite of  button  i  is true then

      put i  after card field id 138
      put ","  after card field id 138
    end if

  end repeat
  put "150" after card field id 138

  put empty into card field id 140
  put card field id 6 of card "make diagram" into card field id 140
  go to card "make diagram"

  put card field id 138 of card "two" into card field id 16


  go to  card "TWO"
  repeat with i = 1 to 12

    get item i of card field id 138
    go to card (line 1 of card field id 140)



    if it is 15 or it is 20 or it is 21 or it is 22 or it is 23 or it is 24 then
      set icon of button i to 14204

      go to card "two"
      next repeat
    end if
    if it is 25 or it is 30 or it is 31 or it is 32 or it is 33 or it is 34 then
      set icon of button i to 14130

      go to card "two"
      next repeat
    end if
    if it is 35 or it is 36 or it is 37 or it is 38 or it is 39 or  it is 44 then
      set icon of button i to 22268

      go to card "two"
      next repeat
    end if
    if it is 45 or  it is 50 or it is 51 or it is 52 or it is 53 or it is 54 then
      set icon of button i to 23404

      go to card "two"
      next repeat
    end if
    if it is 55 or it is 56 or it is 57 or it is 58 or it is 59 or it is 64 then
      set icon of button i to 5872

      go to card "two"
      next repeat
    end if
    if it is 65 or it is 76 or it is 77 or it is 78 or it is 79 or it is 80 then
      set icon of button i to 13073

      go to card "two"
      next repeat
    end if
    if it is 67 or  it is 72 or it is 84 or it is 83 or it is 82 or it is 81 then
      set icon of button i to 28352

      go to card "two"
      next repeat
    end if
    if it is 85 or  it is 110 or it is 115 or it is 120 or it is 125 or it is 130 then
      set icon of button i to 18110

      go to card "two"
      next repeat
    end if
    if it is 86 or  it is 111 or it is 116 or it is 121 or it is 126 or it is 131 then
      set icon of button i to 26064

      go to card "two"
      next repeat
    end if
    if it is 87 or  it is 112 or it is 117 or it is 122 or it is 127 or it is 132 then
      set icon of button i to 14048

      go to card "two"
      next repeat
    end if
    if it is 88  or it is 113 or it is 118 or it is 123 or it is 128 or it is 133 then
      set icon of button i to 30151

      go to card "two"
      next repeat
    end if
    if it is 89 or  it is 114 or it is 119 or it is 124 or it is 129 or it is 134 then
      set icon of button i to 22358

      go to card "two"
      next repeat
    end if
    go to card "two"
  end repeat
  go to card "Make Diagram"


  choose browse tool
end mouseUp



-- part 15 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=270 top=327 right=342 bottom=292
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: E.2
----- HyperTalk script -----


on mouseUp
  go to card "two"
  repeat with i = 1 to 12
    get item i of card field id 138
    go to card "two"
    if it is 15 or it is 25 or it is 44 or it is 45 or it is 64 or it is 65 or it is 67 or it is 85 or it is 86 or it is 87 or it is 88 or it is 89 then
      go to card (line 1 of card field id 140)
      set the loc of card button i to 193,42
      go to card "two"
      next repeat
    end if
    if it is 20 or it is 30 or it is 39 or it is 50 or it is 59 or it is 76 or it is 72 or it is 110 or it is 111 or it is 112 or it is 113 or it is 114 then
      go to card (line 1 of card field id 140)
      set the loc of card button i to 59,178
      go to card "two"
      next repeat
    end if
    if it is 21 or it is 31 or it is 38 or it is 51 or it is 58 or it is 77 or it is 84 or it is 115 or it is 116 or it is 117 or it is 118 or it is 119 then
      go to card (line 1 of card field id 140)
      set the loc of card button i to 157,178
      go to card "two"
      next repeat
    end if
    if it is 22 or it is 32 or it is 37 or it is 52 or it is 57 or it is 78 or it is 83 or it is 120 or it is 121 or it is 122 or it is 123 or it is 124 then
      go to card (line 1 of card field id 140)
      set the loc of card button i to 255,178
      go to card "two"
      next repeat
    end if
    if it is 23 or it is 33 or it is 36 or it is 53 or it is 56  then
      go to card (line 1 of card field id 140)
      set the loc of card button i to 354,178
      go to card "two"
      next repeat
    end if

    if it is 79 or it is 82 or it is 125 or it is 126 or it is 127 or it is 128 or it is 129 then
      go to card (line 1 of card field id 140)
      set the loc of card button i to 354,178
      go to card "two"
      next repeat
    end if
    if it is 24 or it is 34 or it is 35 or it is 54 or it is 55 or it is 80 or it is 81 or it is 130 or it is 131 or it is 132 or it is 133 or it is 134 then
      go to card (line 1 of card field id 140)
      set the loc of card button i to 454,178
      go to card "two"
      next repeat
    end if
    go to card "two"
  end repeat
  go to card "Make diagram"
  choose browse tool
end mouseUp




-- part 16 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=388 top=287 right=341 bottom=503
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 17 (button)
-- low flags: 00
-- high flags: 0003
-- rect: left=54 top=291 right=331 bottom=103
-- title width / last selected line: 0
-- icon id / first selected line: 2388 / 2388
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  visual effect dissolve
  go to first card
end mouseUp



-- part 18 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=313 top=268 right=312 bottom=368
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button


-- part contents for card part 1
----- text -----
1. Type in the name of your new concept diagram

-- part contents for card part 2
----- text -----
2. Press the template button with the number of subunits that you want
(either 4 or 5 subunits).Then from the selection choose the type and size unit that you want for the HQ unit and subunits.

-- part contents for card part 5
----- text -----
3. To create the new concept diagram press
"CREATE DIAGRAM" button
 "CREATE DIAGRAM".

-- part contents for background part 3
----- text -----
CONCEPT MAKER

-- part contents for card part 6
----- text -----
CD75K.3

-- part contents for card part 16
----- text -----
15,16,17,18,49,88,91,96,103,108,150